#
# quesedilla, by robey
# v1 -- 20aug95
# v2 -- 2oct95 [improved it]
# v3 -- 17mar96 [fixed it up for 1.0 multi-channel]
# fixed 22mar96 and 12 April 1996 by Gord-@saFyre
#
# this will create an html file every so often (the default is once a
# minute). the html file will have a table showing the people currently
# on the channel, their user@hosts, who's an op, and who's idle. it
# uses a table which some browsers (and pseudo-browsers like lynx) can't
# see, but it can optionally make a second page which will support these
# archaic browsers. browsers supporting push-pull will receive the updated
# page automatically periodically.
#
# if a user's info line or comment line starts with "http://" then their
# nickname in the table will be a link to that site. (this way, the
# channel "regulars" can have your channel's web page link to their home
# page -- while they're on the channel). if the user doesn't have a home
# page, but has an email address stored on the bot, that will be their
# link instead.
#
# feel free to modify and play with this. the original was written in
# 15 minutes, then at various times i fixed bugs and added features.
# softlord helped me make the design look a little nicer. :) if you make
# any nifty improvements, please let me know.
# robey@lightning.net
## for each channel you want a webfile for, do this:
set webfile(#pinkfloyd) "/home/sinsen/b/tho/www_docs/users.html"
#set webfile(#GayNYCmature) "/home/ggold/public/safyre/gaynycmature.html"
## define these for channels you want alternate (lynx-friendly) web pages
## for: (the 'lynxfilerf' needs to be relative to your html directory)
set lynxfile(#pinkfloyd) "/home/sinsen/b/tho/www_docs/users2.html"
set lynxfilerf(#pinkfloyd) "users2.html"
#set lynxfile(#GayNYCmature) "/home/ggold/public/safyre/gaynycmature-lynx.html"
#set lynxfilerf(#GayNYCmature) "gaynycmature-lynx.html"
## how often should these html files get updated?
## (1 means once every minute, 5 means once every 5 minutes, etc)
set web_update 3
## this will help people figure out what timezone you're in :)
set webtz "CET+1"
## want a background graphic? put its relative path here
set background ""
proc do_ques {} {
global webfile lynxfile web_update botnick webtz lynxfilerf background
foreach chan [array names webfile] {
if {[lsearch -exact [string tolower $chan] [string tolower [channels]]] == -1} {continue}
set fd [open $webfile($chan) w]
if {[info exists lynxfile($chan)]} {
set fdl [open $lynxfile($chan) w]
} else {
set fdl [open "/dev/null" w]
}
puts $fd ""
if {![onchan $botnick $chan]} {
puts $fd "People on $channel right now"
puts $fd "Oops!
"
puts $fd "I'm not on $chan right now for some reason.
"
puts $fd "IRC isn't a very stable place these days... Please try again"
puts $fd "later!
"
puts $fdl "
People on $channel right now"
puts $fdl "Oops!
"
puts $fdl "I'm not on $chan right now for some reason.
"
puts $fdl "IRC isn't a very stable place these days... Please try again"
puts $fdl "later!
"
close $fd
close $fdl
timer $web_update do_ques
return 0
}
puts $fd "
People on $chan right now"
puts $fdl "People on $chan right now"
if {$background != ""} {
puts $fd "$chan
"
puts $fdl "The nice people on $chan
"
} {
puts $fd "The nice people on $chan
"
puts $fdl "$chan
"
}
if {[info exists lynxfile($chan)]} {
puts $fd "If this page looks screwy on your browser, try"
puts $fd "this page.
"
}
puts $fd ""
puts $fd ""
puts $fd ""
if {[isop $i $chan]} { set chop "op"} { set chop "" }
if {[getchanidle $i $chan] > 10} {
if {$chop == ""} { set chop "idle" } { set chop "${chop}, idle" }
}
set handle [finduser $i![getchanhost $i $chan]]
if {[onchansplit $i $chan]} {
if {$chop == ""} {
set chop "(split)"
} {
set chop "${chop} (split)"
}
}
set url [user-get $handle www]
set boyfriend [user-get $handle bf]
set info [getinfo $handle]
set comment [getcomment $handle]
if {"" == $chop} { set chop "-" }
set link ""
if {"" != $url} {
set link ""
}
if {("" == $link) &&
([string compare [string range $comment 0 6] "http://"] == 0)} {
set link ""
}
if {("" == $link) &&
([string compare [string range $info 0 6] "http://"] == 0)} {
set link ""
}
if {"" == $link} {
set email [getemail $handle]
if {("" != $email) && ([string first @ $email] > 0)} {
set link ""
}
}
if {"" != $link} { set elink "" } { set elink "" }
set bflink ""
set bfurl [user-get $boyfriend www]
if {"" != $bfurl} {
set bflink ""
}
set bfcomment [getcomment $boyfriend]
if {("" == $bflink) &&
([string compare [string range $bfcomment 0 6] "http://"] == 0)} {
set bflink ""
}
set bfinfo [getinfo $boyfriend]
if {("" == $bflink) &&
([string compare [string range $bfinfo 0 6] "http://"] == 0)} {
set bflink ""
}
if {"" == $bflink} {
set bfemail [getemail $boyfriend]
if {("" != $bfemail) && ([string first @ $bfemail] > 0)} {
set bflink ""
}
}
if {"" != $bflink} { set bfelink "" } { set bfelink "" }
puts $fd ""
puts $fd ""
set chost [getchanhost $i $chan]
if {[string compare [string tolower $i] [string tolower $botnick]] == 0} {
set chost "This is me, the channel bot."
set info ""
} {
if {[matchattr $handle b]} {
set chost "This is another channel bot."
set info ""
}
}
puts $fd ""
puts $fdl "${link}[format %-9s $i]${elink} [format %-16s $chop] $chost"
if {"" != $info} {
puts $fd ""
puts $fdl " Info: $info"
}
if {"" != $boyfriend} {
puts $fd ""
puts $fdl " Boyfriend: ${bflink}$boyfriend${bfelink}"
}
}
puts $fd "
People on $chan as of [date] [time] $webtz| Nickname | Status"
puts $fd " | User@Host"
puts $fdl "People on $chan as of [date] [time] $webtz"
puts $fdl "Nickname Status User@Host"
foreach i [chanlist $chan] {
puts $fd " |
|---|
| ${link}${i}${elink} | ${chop} | ${chost} |
| Info: $info |
| Boyfriend: ${bflink}$boyfriend${bfelink} |
"
puts $fdl ""
puts $fd "
"
puts $fd ""
puts $fd " Eugy page"
puts $fd " - The #pinkfloyd homepage "
puts $fdl "
"
puts $fdl ""
puts $fdl " Eugy page"
puts $fdl " - The #pinkfloyd homepage "
puts $fd "This page is automatically refreshed."
puts $fd ""
puts $fdl ""
close $fd
close $fdl
}
timer $web_update do_ques
}
if {![info exists ques_going]} {
timer $web_update do_ques
set ques_going 1
}
set xxchans ""
foreach i [array names webfile] {
set xxchans "$xxchans $i"
if {![info exists lynxfile($i)]} {
set xxchans "$xxchans (no lynx)"
}
set xxchans "${xxchans},"
}
set xxchans [string trimright $xxchans ","]
putlog "Quesedilla v3:$xxchans"
unset xxchans
proc gordver_ques3 {} {
return "ques3.tcl v1.00"
}
#### These commands will be included in all scriptpacks released by
#### Gord-@saFyre as of 15 April 1996. In combination with a
#### gordver_* process for each scriptpack, it will provide you
#### with a way to determine what versions you or other bots
#### currently have loaded. The command .checkver will return
#### a list of the loaded scripts and versions. The command
#### .checkver will return that info for the remote
proc checkver {} {
set response { }
foreach process [info procs gordver*] {
lappend response [$process]
}
return [lsort $response]
}
bind dcc m checkver dcc_checkver
proc dcc_checkver {hand idx arg} {
global botnick
putcmdlog "#$hand# checkver $arg"
if {[llength $arg] == 0} {
putdcc $idx "*** The following scriptpacks by Gord-@saFyre are loaded:"
foreach pack [checkver] {
putdcc $idx "*** $pack"
}
putdcc $idx "*** End of list."
return 0
}
foreach bot $arg {
if {[lsearch [string tolower [bots]] [string tolower $bot]] == -1} {
putdcc $idx "*** $bot is not a linked bot!"
} {
putbot $bot "checkver $hand"
}
}
return 0
}
bind bot - checkver bot_checkver
proc bot_checkver {bot cmd arg} {
global botnick
set from [lindex $arg 0]
sendnote $botnick "$from@bot" "The following scriptpacks by Gord-@saFyre are loaded:"
foreach pack [checkver] {
sendnote $botnick "$from@$bot" $pack
}
sendnote $botnick "$from@$bot" "End of list."
return 0
}